home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)tf.d64 / func.savecompact < prev    next >
Text File  |  2009-01-03  |  303b  |  14 lines
  1. 0010 //
  2. 0020 ╞╒╬├ SAVECOMPACT(NAME$) ├╠╧╙┼─
  3. 0030   ╒╙┼ COMPACTOR
  4. 0040   ╘╥┴╨ 
  5. 0050     ╧╨┼╬ ╞╔╠┼ 147,NAME$,╫╥╔╘┼
  6. 0060     SAVE'COMPACT(147)
  7. 0070     ├╠╧╙┼ ╞╔╠┼ 147
  8. 0080     ╥┼╘╒╥╬ 0
  9. 0090   ╚┴╬─╠┼╥ // RETURN ERROR CODE
  10. 0100     ├╠╧╙┼ ╞╔╠┼ 147
  11. 0110     ╥┼╘╒╥╬ ┼╥╥
  12. 0120   ┼╬─╘╥┴╨ 
  13. 0130 ┼╬─╞╒╬├ SAVECOMPACT
  14.